home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utilmus
/
sfxdocng.lha
/
sfx-doc
/
Install-SFXdoc
next >
Wrap
Text File
|
1996-03-15
|
5KB
|
168 lines
; Install-SFXdoc Start --------------------------------------------------------------------------------------
;
; $VER: Install-SFXdoc (02.12.1995)
;
; SoundFX doc Installscript
; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
;
; -----------------------------------------------------------------------------------------------------------
; setze sprachenabhängige Texte -----------------------------------------------------------------------------
(IF (= @LANGUAGE "english")
(
(SET #bad-kick "SoundFX requires at least Kickstart 2.04 !")
(SET #welcome-messy "\n\nWelcome to the installation of docs for SoundFX !")
(SET #choose-dest "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
(SET #choose-dest-help "Here you can choose the place on your HD, were SFX should be installed")
(SET #dest-require "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
(SET #copy-text "copying texts ...")
(SET #copy-guides "copying guides ...")
(SET #exit-messy "\n\nSFXdoc is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
))
(IF (= @LANGUAGE "deutsch")
(
(SET #bad-kick "SoundFX benötigt mindestens Kickstart 2.04 !")
(SET #welcome-messy "\n\nWillkommen zur Installation der docs für SoundFX !")
(SET #choose-dest "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
(SET #choose-dest-help "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
(SET #dest-require "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
(SET #copy-text "kopiere Texte ...")
(SET #copy-guides "kopiere Guides ...")
(SET #copy-help "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
(SET #exit-messy "\n\nSFXdoc konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
))
; check kick version ----------------------------------------------------------------------------------------
(if (< (/ (getversion) 65536) 37)
(abort #bad-kick)
)
; los geht`s ------------------------------------------------------------------------------------------------
(COMPLETE 0)
(MESSAGE #welcome-messy)
(SET @default-dest
(ASKDIR
(PROMPT #choose-dest)
(HELP #choose-dest-help)
(DEFAULT @default-dest)
)
)
(MESSAGE #dest-require)
; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
(COMPLETE 5)
(SET @default-dest (TACKON @default-dest "SFX"))
(SET sfx-dest @default-dest)
(IF (= (EXISTS sfx-dest) 0)
(MAKEDIR sfx-dest (INFOS))
)
; Guide -----------------------------------------------------------------------------------------------------
(COMPLETE 17)
(COPYFILES
(PROMPT #copy-text)
(HELP #copy-help)
(SOURCE "")
(FILES)
(PATTERN "*.txt")
(DEST sfx-dest)
)
(COMPLETE 15)
(SET sfxsub-dest (TACKON sfx-dest "Guides"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 17)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/")
(FILES)
(PATTERN "*.guide")
(DEST sfxsub-dest)
)
(COMPLETE 25)
(SET sfxsub-dest (TACKON sfx-dest "_loader"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 27)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/Loader/")
(DEST sfxsub-dest)
(ALL)
)
(COMPLETE 35)
(SET sfxsub-dest (TACKON sfx-dest "_operators"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 37)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/Operators/")
(DEST sfxsub-dest)
(ALL)
)
(COMPLETE 65)
(SET sfxsub-dest (TACKON sfx-dest "_player"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 67)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/Player/")
(DEST sfxsub-dest)
(ALL)
)
(COMPLETE 75)
(SET sfxsub-dest (TACKON sfx-dest "_rexx"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 77)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/Rexx/")
(DEST sfxsub-dest)
(ALL)
)
(COMPLETE 85)
(SET sfxsub-dest (TACKON sfx-dest "_saver"))
(IF (= (EXISTS sfxsub-dest) 0)
(MAKEDIR sfxsub-dest)
)
(COMPLETE 87)
(COPYFILES
(PROMPT #copy-guides)
(HELP #copy-help)
(SOURCE "Guides/Saver/")
(DEST sfxsub-dest)
(ALL)
)
; Fertig ----------------------------------------------------------------------------------------------------
(COMPLETE 99)
(MESSAGE #exit-messy)
(COMPLETE 100)
(EXIT (QUIET))
; Install-SFXdoc Ende ---------------------------------------------------------------------------------------